let name = ref ""
;;

let get_name s =
  name := s
;;

Arg.parse [] get_name "Read the manual";
Run.run (fun name -> (Parsemp.parse name)#print) !name



